home *** CD-ROM | disk | FTP | other *** search
/ Amiga Aktuell / Amiga Aktuell.iso / amiga-aktuell / net tools / tcp tools / wordkick / wordkick.amirx next >
Text File  |  1996-09-05  |  950b  |  41 lines
  1. /* Kick Ban Script by Stephen Orr (Version 1.0) 23/07/1996
  2. \\ Please mail any bug reports/comments to the Wedge@dagobah.demon.co.uk with a subject
  3. \\ header of WordKick.AMIRX.
  4. // How to install ? -----» Do this....
  5. \\ Put this script in PROGDIR:rexx/ and add this to your highlight arexx event
  6. // WordKick.Amirx %p
  7. \\ Next goto to SETTINGS then LISTS and HIGHLIGHT and add your "keywords" remember the quotes,
  8. // Dont use with a NICK because as soon as that person speaks they will be kicked
  9. // 
  10. */
  11.  
  12. OPTIONS RESULTS
  13. PARSE ARG SENDER MSGTYPE RECEIVER MESSAGE
  14. PARSE VAR SENDER ':'USER'!'REST
  15. PARSE VAR SENDER '@'USER_HOST
  16.  
  17. "getmynick"
  18. my_nick=RESULT
  19.  
  20. count = 0
  21. namevalid = 0
  22.  
  23. do while namevalid = 0
  24.    getuser count
  25.    nick=RESULT
  26.    if nick = my_nick then do
  27.       getuserstate count
  28.       opstat=rc
  29.       if rc = 1 then do
  30.       mystat=op
  31.       end
  32.    namevalid=1
  33.    end
  34.    count = count + 1
  35. end
  36.  
  37.  
  38. IF mystat=op then "SAY /kick" USER
  39. end
  40. CLOSE(temmp)
  41.